Sub ( As MSForms.ListBox, _
                       Optional Ĺ As Integer = xlAscending)

    Dim Ǽ As Integer
    
    Ǽ = .ListCount

    If Ǽ > 1 Then
        
        Application.ScreenUpdating = False
        
            Worksheets.Add
                
            With Range("A1").Resize(Ǽ, 1)
                .Value = .List
                .Sort Key1:=Range("A1"), Order1:=Ĺ, Header:=xlNo
            End With
        
            With 
                .Clear
                .List = Range("A1").CurrentRegion.Value
            End With
            
            Application.DisplayAlerts = False
                ActiveSheet.Delete
            Application.DisplayAlerts = True

        Application.ScreenUpdating = True

    End If

End Sub
